﻿
Imports System.IO

Public Class html_xhtml_2_0
    Inherits html_xhtml_1_1

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
        xmlns = "http://www.w3.org/2002/06/xhtml2/"
        xmlns_xsi = "http://www.w3.org/2001/XMLSchema-instance"
#If FULLHTML_XHTML_2_0_FULL_SCHEMA_LOCATION Then
        xsi_schemaLocation = "http://www.w3.org/2002/06/xhtml2/" + newline.incode _
                            + "http://www.w3.org/MarkUp/SCHEMA/xhtml2.xsd"
#End If
        xsi_schemaLocation = "http://www.w3.org/MarkUp/SCHEMA/xhtml2.xsd"
    End Sub

    Public Overloads Shared Sub unittest()
        Dim inst As html_xhtml_2_0 = Nothing
        inst = New html_xhtml_2_0()
        inst.xml_lang = "zh-CN"
        Console.WriteLine(inst.ToString())
    End Sub

End Class
